/ Revista CD Expert 31 / CD Expert nº 31 Unreal Mission Pack I.iso / System / IpDrv.u / ScriptText1.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 68 1d 2f 2f 3d 3d 3d 3d |........|h.//====|
|00000010| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000020| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 0a 2f 2f 20 43 6c |========|=..// Cl|
|00000060| 69 65 6e 74 42 65 61 63 | 6f 6e 52 65 63 65 69 76 |ientBeac|onReceiv|
|00000070| 65 72 3a 20 52 65 63 65 | 69 76 65 73 20 4c 41 4e |er: Rece|ives LAN|
|00000080| 20 62 65 61 63 6f 6e 73 | 20 66 72 6f 6d 20 73 65 | beacons| from se|
|00000090| 72 76 65 72 73 2e 0d 0a | 2f 2f 3d 3d 3d 3d 3d 3d |rvers...|//======|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 0d | 0a 63 6c 61 73 73 20 43 |=======.|.class C|
|000000f0| 6c 69 65 6e 74 42 65 61 | 63 6f 6e 52 65 63 65 69 |lientBea|conRecei|
|00000100| 76 65 72 20 65 78 74 65 | 6e 64 73 20 55 64 70 42 |ver exte|nds UdpB|
|00000110| 65 61 63 6f 6e 0d 0a 09 | 74 72 61 6e 73 69 65 6e |eacon...|transien|
|00000120| 74 3b 0d 0a 0d 0a 76 61 | 72 20 73 74 72 75 63 74 |t;....va|r struct|
|00000130| 20 42 65 61 63 6f 6e 49 | 6e 66 6f 0d 0a 7b 0d 0a | BeaconI|nfo..{..|
|00000140| 09 76 61 72 20 49 70 41 | 64 64 72 20 20 20 20 20 |.var IpA|ddr     |
|00000150| 20 41 64 64 72 3b 0d 0a | 09 76 61 72 20 66 6c 6f | Addr;..|.var flo|
|00000160| 61 74 20 20 20 20 20 20 | 20 54 69 6d 65 3b 0d 0a |at      | Time;..|
|00000170| 09 76 61 72 20 73 74 72 | 69 6e 67 20 20 20 20 20 |.var str|ing     |
|00000180| 20 54 65 78 74 3b 0d 0a | 7d 20 42 65 61 63 6f 6e | Text;..|} Beacon|
|00000190| 73 5b 33 32 5d 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |s[32];..|..functi|
|000001a0| 6f 6e 20 73 74 72 69 6e | 67 20 47 65 74 42 65 61 |on strin|g GetBea|
|000001b0| 63 6f 6e 41 64 64 72 65 | 73 73 28 20 69 6e 74 20 |conAddre|ss( int |
|000001c0| 69 20 29 0d 0a 7b 0d 0a | 09 72 65 74 75 72 6e 20 |i )..{..|.return |
|000001d0| 49 70 41 64 64 72 54 6f | 53 74 72 69 6e 67 28 42 |IpAddrTo|String(B|
|000001e0| 65 61 63 6f 6e 73 5b 69 | 5d 2e 41 64 64 72 29 3b |eacons[i|].Addr);|
|000001f0| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000200| 73 74 72 69 6e 67 20 47 | 65 74 42 65 61 63 6f 6e |string G|etBeacon|
|00000210| 54 65 78 74 28 69 6e 74 | 20 69 29 0d 0a 7b 0d 0a |Text(int| i)..{..|
|00000220| 09 72 65 74 75 72 6e 20 | 42 65 61 63 6f 6e 73 5b |.return |Beacons[|
|00000230| 69 5d 2e 54 65 78 74 3b | 0d 0a 7d 0d 0a 0d 0a 66 |i].Text;|..}....f|
|00000240| 75 6e 63 74 69 6f 6e 20 | 42 65 67 69 6e 50 6c 61 |unction |BeginPla|
|00000250| 79 28 29 0d 0a 7b 0d 0a | 09 69 66 28 20 42 69 6e |y()..{..|.if( Bin|
|00000260| 64 50 6f 72 74 28 20 42 | 65 61 63 6f 6e 50 6f 72 |dPort( B|eaconPor|
|00000270| 74 2c 20 74 72 75 65 20 | 29 20 29 0d 0a 09 7b 0d |t, true |) )...{.|
|00000280| 0a 09 09 53 65 74 54 69 | 6d 65 72 28 20 31 2e 30 |...SetTi|mer( 1.0|
|00000290| 2c 20 74 72 75 65 20 29 | 3b 0d 0a 09 09 6c 6f 67 |, true )|;....log|
|000002a0| 28 20 22 43 6c 69 65 6e | 74 42 65 61 63 6f 6e 52 |( "Clien|tBeaconR|
|000002b0| 65 63 65 69 76 65 72 20 | 69 6e 69 74 69 61 6c 69 |eceiver |initiali|
|000002c0| 7a 65 64 2e 22 20 29 3b | 0d 0a 09 7d 0d 0a 09 65 |zed." );|...}...e|
|000002d0| 6c 73 65 0d 0a 09 7b 0d | 0a 09 09 6c 6f 67 28 20 |lse...{.|...log( |
|000002e0| 22 43 6c 69 65 6e 74 42 | 65 61 63 6f 6e 52 65 63 |"ClientB|eaconRec|
|000002f0| 65 69 76 65 72 20 66 61 | 69 6c 65 64 3a 20 42 65 |eiver fa|iled: Be|
|00000300| 61 63 6f 6e 20 70 6f 72 | 74 20 69 6e 20 75 73 65 |acon por|t in use|
|00000310| 2e 22 20 29 3b 0d 0a 09 | 7d 0d 0a 09 42 72 6f 61 |." );...|}...Broa|
|00000320| 64 63 61 73 74 42 65 61 | 63 6f 6e 28 29 3b 0d 0a |dcastBea|con();..|
|00000330| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 44 65 |}....fun|ction De|
|00000340| 73 74 72 6f 79 65 64 28 | 29 0d 0a 7b 0d 0a 09 6c |stroyed(|)..{...l|
|00000350| 6f 67 28 20 22 43 6c 69 | 65 6e 74 42 65 61 63 6f |og( "Cli|entBeaco|
|00000360| 6e 52 65 63 65 69 76 65 | 72 20 66 69 6e 69 73 68 |nReceive|r finish|
|00000370| 65 64 2e 22 20 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |ed." );.|.}....fu|
|00000380| 6e 63 74 69 6f 6e 20 54 | 69 6d 65 72 28 29 0d 0a |nction T|imer()..|
|00000390| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 69 6e 74 20 69 2c |{...loca|l int i,|
|000003a0| 20 6a 3b 0d 0a 09 66 6f | 72 28 20 69 3d 30 3b 20 | j;...fo|r( i=0; |
|000003b0| 69 3c 61 72 72 61 79 63 | 6f 75 6e 74 28 42 65 61 |i<arrayc|ount(Bea|
|000003c0| 63 6f 6e 73 29 3b 20 69 | 2b 2b 20 29 0d 0a 09 09 |cons); i|++ )....|
|000003d0| 69 66 0d 0a 09 09 28 09 | 42 65 61 63 6f 6e 73 5b |if....(.|Beacons[|
|000003e0| 69 5d 2e 41 64 64 72 2e | 41 64 64 72 21 3d 30 0d |i].Addr.|Addr!=0.|
|000003f0| 0a 09 09 26 26 09 4c 65 | 76 65 6c 2e 54 69 6d 65 |...&&.Le|vel.Time|
|00000400| 53 65 63 6f 6e 64 73 2d | 42 65 61 63 6f 6e 73 5b |Seconds-|Beacons[|
|00000410| 69 5d 2e 54 69 6d 65 3c | 42 65 61 63 6f 6e 54 69 |i].Time<|BeaconTi|
|00000420| 6d 65 6f 75 74 20 29 0d | 0a 09 09 09 42 65 61 63 |meout ).|....Beac|
|00000430| 6f 6e 73 5b 6a 2b 2b 5d | 20 3d 20 42 65 61 63 6f |ons[j++]| = Beaco|
|00000440| 6e 73 5b 69 5d 3b 0d 0a | 09 66 6f 72 28 20 6a 3d |ns[i];..|.for( j=|
|00000450| 6a 3b 20 6a 3c 61 72 72 | 61 79 63 6f 75 6e 74 28 |j; j<arr|aycount(|
|00000460| 42 65 61 63 6f 6e 73 29 | 3b 20 6a 2b 2b 20 29 0d |Beacons)|; j++ ).|
|00000470| 0a 09 09 42 65 61 63 6f | 6e 73 5b 6a 5d 2e 41 64 |...Beaco|ns[j].Ad|
|00000480| 64 72 2e 41 64 64 72 3d | 30 3b 0d 0a 7d 0d 0a 0d |dr.Addr=|0;..}...|
|00000490| 0a 66 75 6e 63 74 69 6f | 6e 20 42 72 6f 61 64 63 |.functio|n Broadc|
|000004a0| 61 73 74 42 65 61 63 6f | 6e 28 29 0d 0a 7b 0d 0a |astBeaco|n()..{..|
|000004b0| 09 6c 6f 63 61 6c 20 49 | 70 41 64 64 72 20 41 64 |.local I|pAddr Ad|
|000004c0| 64 72 3b 0d 0a 0d 0a 09 | 41 64 64 72 2e 41 64 64 |dr;.....|Addr.Add|
|000004d0| 72 20 3d 20 42 72 6f 61 | 64 63 61 73 74 41 64 64 |r = Broa|dcastAdd|
|000004e0| 72 3b 0d 0a 09 41 64 64 | 72 2e 50 6f 72 74 20 3d |r;...Add|r.Port =|
|000004f0| 20 53 65 72 76 65 72 42 | 65 61 63 6f 6e 50 6f 72 | ServerB|eaconPor|
|00000500| 74 3b 0d 0a 0d 0a 09 53 | 65 6e 64 54 65 78 74 28 |t;.....S|endText(|
|00000510| 20 41 64 64 72 2c 20 22 | 52 45 50 4f 52 54 22 20 | Addr, "|REPORT" |
|00000520| 29 3b 09 0d 0a 7d 0d 0a | 0d 0a 65 76 65 6e 74 20 |);...}..|..event |
|00000530| 52 65 63 65 69 76 65 64 | 54 65 78 74 28 20 49 70 |Received|Text( Ip|
|00000540| 41 64 64 72 20 41 64 64 | 72 2c 20 73 74 72 69 6e |Addr Add|r, strin|
|00000550| 67 20 54 65 78 74 20 29 | 0d 0a 7b 0d 0a 09 6c 6f |g Text )|..{...lo|
|00000560| 63 61 6c 20 69 6e 74 20 | 69 2c 20 6e 3b 0d 0a 09 |cal int |i, n;...|
|00000570| 0d 0a 09 6e 20 3d 20 6c | 65 6e 28 42 65 61 63 6f |...n = l|en(Beaco|
|00000580| 6e 50 72 6f 64 75 63 74 | 29 3b 0d 0a 09 69 66 28 |nProduct|);...if(|
|00000590| 20 6c 65 66 74 28 54 65 | 78 74 2c 6e 29 3d 3d 42 | left(Te|xt,n)==B|
|000005a0| 65 61 63 6f 6e 50 72 6f | 64 75 63 74 20 29 0d 0a |eaconPro|duct )..|
|000005b0| 09 7b 0d 0a 09 09 54 65 | 78 74 20 3d 20 6d 69 64 |.{....Te|xt = mid|
|000005c0| 28 54 65 78 74 2c 6e 2b | 31 29 3b 0d 0a 09 09 41 |(Text,n+|1);....A|
|000005d0| 64 64 72 2e 50 6f 72 74 | 20 3d 20 69 6e 74 28 54 |ddr.Port| = int(T|
|000005e0| 65 78 74 29 3b 0d 0a 09 | 09 66 6f 72 28 20 69 3d |ext);...|.for( i=|
|000005f0| 30 3b 20 69 3c 61 72 72 | 61 79 63 6f 75 6e 74 28 |0; i<arr|aycount(|
|00000600| 42 65 61 63 6f 6e 73 29 | 3b 20 69 2b 2b 20 29 0d |Beacons)|; i++ ).|
|00000610| 0a 09 09 09 69 66 28 20 | 42 65 61 63 6f 6e 73 5b |....if( |Beacons[|
|00000620| 69 5d 2e 41 64 64 72 3d | 3d 41 64 64 72 20 29 0d |i].Addr=|=Addr ).|
|00000630| 0a 09 09 09 09 62 72 65 | 61 6b 3b 0d 0a 09 09 69 |.....bre|ak;....i|
|00000640| 66 28 20 69 3d 3d 61 72 | 72 61 79 63 6f 75 6e 74 |f( i==ar|raycount|
|00000650| 28 42 65 61 63 6f 6e 73 | 29 20 29 0d 0a 09 09 09 |(Beacons|) ).....|
|00000660| 66 6f 72 28 20 69 3d 30 | 3b 20 69 3c 61 72 72 61 |for( i=0|; i<arra|
|00000670| 79 63 6f 75 6e 74 28 42 | 65 61 63 6f 6e 73 29 3b |ycount(B|eacons);|
|00000680| 20 69 2b 2b 20 29 0d 0a | 09 09 09 09 69 66 28 20 | i++ )..|....if( |
|00000690| 42 65 61 63 6f 6e 73 5b | 69 5d 2e 41 64 64 72 2e |Beacons[|i].Addr.|
|000006a0| 41 64 64 72 3d 3d 30 20 | 29 0d 0a 09 09 09 09 09 |Addr==0 |).......|
|000006b0| 62 72 65 61 6b 3b 0d 0a | 09 09 69 66 28 20 69 3d |break;..|..if( i=|
|000006c0| 3d 61 72 72 61 79 63 6f | 75 6e 74 28 42 65 61 63 |=arrayco|unt(Beac|
|000006d0| 6f 6e 73 29 20 29 0d 0a | 09 09 09 72 65 74 75 72 |ons) )..|...retur|
|000006e0| 6e 3b 0d 0a 09 09 42 65 | 61 63 6f 6e 73 5b 69 5d |n;....Be|acons[i]|
|000006f0| 2e 41 64 64 72 20 20 20 | 20 20 20 3d 20 41 64 64 |.Addr   |   = Add|
|00000700| 72 3b 0d 0a 09 09 42 65 | 61 63 6f 6e 73 5b 69 5d |r;....Be|acons[i]|
|00000710| 2e 54 69 6d 65 20 20 20 | 20 20 20 3d 20 4c 65 76 |.Time   |   = Lev|
|00000720| 65 6c 2e 54 69 6d 65 53 | 65 63 6f 6e 64 73 3b 0d |el.TimeS|econds;.|
|00000730| 0a 09 09 42 65 61 63 6f | 6e 73 5b 69 5d 2e 54 65 |...Beaco|ns[i].Te|
|00000740| 78 74 20 20 20 20 20 20 | 3d 20 6d 69 64 28 54 65 |xt      |= mid(Te|
|00000750| 78 74 2c 49 6e 53 74 72 | 28 54 65 78 74 2c 22 20 |xt,InStr|(Text," |
|00000760| 22 29 2b 31 29 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |")+1);..|.}..}...|
|00000770| 0a 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+